home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1989-10-04 | 8.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| Truevision Targa Graphic (image/tga)
| magic
| Supported |
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 20 f4 20 33 20 | 57 61 79 20 41 6e 61 6c |... . 3 |Way Anal|
|00000010| 79 73 69 73 20 6f 66 20 | 56 61 72 69 61 6e 63 65 |ysis of |Variance|
|00000020| 0d 00 14 21 f4 20 63 6f | 70 79 72 69 67 68 74 20 |...!. co|pyright |
|00000030| 52 2e 43 2e 64 65 20 56 | 65 6b 65 79 20 39 2f 38 |R.C.de V|ekey 9/8|
|00000040| 39 0d 00 32 09 f2 69 6e | 69 74 0d 00 3c 0a f2 77 |9..2..in|it..<..w|
|00000050| 68 65 72 65 0d 00 46 08 | f2 64 69 6d 0d 00 78 57 |here..F.|.dim..xW|
|00000060| 20 db 3a ee 20 85 20 e7 | 20 9f 20 3c 3e 31 37 20 | .:. . .| . <>17 |
|00000070| f1 22 45 72 72 6f 72 20 | 4e 6f 2e 20 22 3b 9f 20 |."Error |No. ";. |
|00000080| 3b 22 20 68 61 73 20 6f | 63 63 75 72 65 64 20 61 |;" has o|ccured a|
|00000090| 74 20 6c 69 6e 65 20 22 | 3b 9e 3a 64 65 6c 3d a6 |t line "|;.:del=.|
|000000a0| 35 30 30 3a e5 20 8d 74 | 42 40 20 8b 20 e5 20 8d |500:. .t|B@ . . .|
|000000b0| 74 42 40 0d 00 82 7a f1 | 27 22 54 6f 20 69 6e 70 |tB@...z.|'"To inp|
|000000c0| 75 74 20 66 72 6f 6d 20 | 44 49 53 43 66 69 6c 65 |ut from |DISCfile|
|000000d0| 73 20 65 6e 74 65 72 2e | 2e 2e 2e 2e 2e 31 22 27 |s enter.|.....1"'|
|000000e0| 22 54 6f 20 69 6e 70 75 | 74 20 64 61 74 61 20 66 |"To inpu|t data f|
|000000f0| 72 6f 6d 20 74 68 65 20 | 6b 65 79 62 6f 61 72 64 |rom the |keyboard|
|00000100| 2e 2e 2e 2e 32 22 27 22 | 54 6f 20 6d 61 6b 65 20 |....2"'"|To make |
|00000110| 61 20 64 61 74 61 20 66 | 69 6c 65 2e 2e 2e 2e 2e |a data f|ile.....|
|00000120| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 33 22 0d 00 8c |........|...3"...|
|00000130| 79 f1 22 54 6f 20 6d 61 | 6b 65 20 61 6e 20 4f 70 |y."To ma|ke an Op|
|00000140| 65 72 61 74 69 6e 67 20 | 73 79 73 74 65 6d 20 63 |erating |system c|
|00000150| 61 6c 6c 2e 2e 2e 34 22 | 27 22 54 6f 20 63 68 61 |all...4"|'"To cha|
|00000160| 6e 67 65 20 64 69 73 63 | 20 64 72 69 76 65 20 6f |nge disc| drive o|
|00000170| 72 20 70 61 74 68 6e 61 | 6d 65 2e 2e 2e 35 22 27 |r pathna|me...5"'|
|00000180| 22 54 6f 20 66 69 6e 69 | 73 68 2e 2e 2e 2e 2e 2e |"To fini|sh......|
|00000190| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000001a0| 2e 2e 2e 2e 36 22 0d 00 | 96 20 47 32 3d a5 2d 34 |....6"..|. G2=.-4|
|000001b0| 38 3a e7 20 47 32 3c 31 | 20 84 20 47 32 3e 36 20 |8:. G2<1| . G2>6 |
|000001c0| e5 20 8d 74 42 40 0d 00 | a0 12 e7 20 47 32 3d 36 |. .tB@..|... G2=6|
|000001d0| 20 ee 20 85 20 87 3a e0 | 0d 00 aa 19 e7 20 47 32 | . . .:.|..... G2|
|000001e0| 3d 35 20 f2 77 68 65 72 | 65 3a 20 e5 20 8d 74 42 |=5 .wher|e: . .tB|
|000001f0| 40 0d 00 b4 17 e7 20 47 | 32 3d 34 20 8c 20 f2 6f |@..... G|2=4 . .o|
|00000200| 73 3a e5 20 8d 74 42 40 | 0d 00 be 25 e7 20 47 32 |s:. .tB@|...%. G2|
|00000210| 3d 33 20 8c 20 f2 6c 6f | 61 64 3a f2 64 69 73 70 |=3 . .lo|ad:.disp|
|00000220| 3a f2 73 61 76 65 3a e5 | 20 8d 74 42 40 0d 00 c8 |:.save:.| .tB@...|
|00000230| 18 e7 20 47 32 3d 32 20 | 8c 20 f2 6c 6f 61 64 3a |.. G2=2 |. .load:|
|00000240| f2 64 69 73 70 0d 00 d2 | 92 e7 20 64 75 6d 6d 79 |.disp...|.. dummy|
|00000250| 25 3d 30 20 f1 27 22 85 | 56 61 6c 75 65 73 20 6c |%=0 .'".|Values l|
|00000260| 65 73 73 20 74 68 61 6e | 20 2e 30 30 31 20 77 69 |ess than| .001 wi|
|00000270| 6c 6c 20 62 65 20 74 72 | 65 61 74 65 64 22 27 22 |ll be tr|eated"'"|
|00000280| 85 61 73 20 6d 69 73 73 | 69 6e 67 22 20 8b 20 f1 |.as miss|ing" . .|
|00000290| 27 22 85 41 6c 6c 20 64 | 61 74 61 20 69 6e 63 6c |'".All d|ata incl|
|000002a0| 75 64 69 6e 67 20 7a 65 | 72 6f 20 61 6e 64 20 6e |uding ze|ro and n|
|000002b0| 65 67 61 74 69 76 65 22 | 27 22 85 76 61 6c 75 65 |egative"|'".value|
|000002c0| 73 20 77 69 6c 6c 20 62 | 65 20 69 6e 63 6c 75 64 |s will b|e includ|
|000002d0| 65 64 22 3a 4d 3d 30 0d | 00 dc 6d f1 27 22 41 6c |ed":M=0.|..m.'"Al|
|000002e0| 74 65 72 6e 61 74 69 76 | 65 20 75 6e 72 65 70 6c |ternativ|e unrepl|
|000002f0| 69 63 61 74 65 64 20 61 | 6e 61 6c 79 73 69 73 20 |icated a|nalysis |
|00000300| 59 2f 4e 22 27 22 85 88 | 28 4d 69 73 73 69 6e 67 |Y/N"'"..|(Missing|
|00000310| 20 76 61 6c 75 65 73 20 | 6e 6f 74 20 61 6c 6c 6f | values |not allo|
|00000320| 77 65 64 22 3a 53 57 24 | 3d be 3a e7 20 53 57 24 |wed":SW$|=.:. SW$|
|00000330| 3d 22 59 22 20 84 20 53 | 57 24 3d 22 79 22 20 8c |="Y" . S|W$="y" .|
|00000340| 20 4d 3d 31 0d 00 e6 63 | e8 27 22 82 45 6e 74 65 | M=1...c|.'".Ente|
|00000350| 72 20 4e 6f 2e 6f 66 20 | 63 6f 6c 75 6d 6e 73 2c |r No.of |columns,|
|00000360| 72 6f 77 73 20 61 6e 64 | 20 62 6c 6f 63 6b 73 22 |rows and| blocks"|
|00000370| 2c 43 2c 52 2c 42 3a e7 | 20 4d 3c 3e 31 20 e8 22 |,C,R,B:.| M<>1 ."|
|00000380| 82 61 6c 73 6f 20 72 65 | 70 6c 69 63 61 74 69 6f |.also re|plicatio|
|00000390| 6e 73 20 69 6e 20 61 20 | 66 69 6c 6c 65 64 20 63 |ns in a |filled c|
|000003a0| 65 6c 6c 20 22 2c 4d 0d | 00 eb 0e 4e 39 3d 43 2a |ell ",M.|...N9=C*|
|000003b0| 52 2a 42 2a 4d 0d 00 f0 | 22 e7 20 43 2a 52 3c 34 |R*B*M...|". C*R<4|
|000003c0| 20 f1 22 45 6e 74 72 79 | 20 65 72 72 6f 72 21 22 | ."Entry| error!"|
|000003d0| 3a e5 20 8d 64 66 40 0d | 00 fa 1d f1 27 3b 22 85 |:. .df@.|....';".|
|000003e0| 44 61 74 61 20 72 65 71 | 75 69 72 65 64 20 3d 20 |Data req|uired = |
|000003f0| 22 3b 4e 39 0d 01 04 11 | e7 20 47 32 3d 32 20 8c |";N9....|. G2=2 .|
|00000400| 20 8d 64 68 43 0d 01 2c | 1d 20 f4 20 46 49 4c 45 | .dhC..,|. . FILE|
|00000410| 20 41 43 43 45 53 53 49 | 4e 47 20 52 4f 55 54 49 | ACCESSI|NG ROUTI|
|00000420| 4e 45 0d 01 36 1e f1 27 | 22 82 88 20 20 20 20 20 |NE..6..'|".. |
|00000430| 46 49 4c 45 20 50 52 4f | 43 45 53 53 4f 52 22 27 |FILE PRO|CESSOR"'|
|00000440| 0d 01 4a 08 5a 25 3d 30 | 0d 01 54 1a f5 3a f2 69 |..J.Z%=0|..T..:.i|
|00000450| 6e 70 75 74 28 44 24 29 | 3a fd 20 5a 25 3e 4e 39 |nput(D$)|:. Z%>N9|
|00000460| 2d 31 0d 01 5e 3e f2 66 | 69 6c 28 31 32 39 29 3a |-1..^>.f|il(129):|
|00000470| f1 22 83 9d 84 3e 20 20 | 50 72 65 73 73 20 61 20 |."...> |Press a |
|00000480| 6b 65 79 20 74 6f 20 65 | 6e 64 20 64 65 6c 61 79 |key to e|nd delay|
|00000490| 20 20 3c 22 3a 64 65 6c | 3d a6 28 32 30 30 30 29 | <":del|=.(2000)|
|000004a0| 0d 01 68 4c f1 27 22 83 | 9d 84 41 6d 65 6e 64 20 |..hL.'".|..Amend |
|000004b0| 6f 72 20 63 68 65 63 6b | 20 64 61 74 61 20 59 3f |or check| data Y?|
|000004c0| 20 65 6c 73 65 20 52 45 | 54 55 52 4e 20 22 3a 59 | else RE|TURN ":Y|
|000004d0| 25 3d a5 3a e7 20 59 25 | 3d 38 39 20 84 20 59 25 |%=.:. Y%|=89 . Y%|
|000004e0| 3d 31 32 31 20 8c 20 f2 | 64 69 73 70 0d 03 e8 1f |=121 . .|disp....|
|000004f0| 20 50 3d 30 3a 41 3d 30 | 3a 41 32 3d 30 3a 41 33 | P=0:A=0|:A2=0:A3|
|00000500| 3d 30 3a 41 34 3d 30 3a | 4f 3d 30 0d 03 f2 47 53 |=0:A4=0:|O=0...GS|
|00000510| 3d 30 3a 54 3d 30 3a 53 | 31 3d 30 3a e3 20 4a 3d |=0:T=0:S|1=0:. J=|
|00000520| 31 20 b8 20 61 72 72 61 | 79 73 69 7a 65 25 2a 47 |1 . arra|ysize%*G|
|00000530| 25 3a 41 33 28 4a 29 3d | 30 3a 41 32 28 4a 29 3d |%:A3(J)=|0:A2(J)=|
|00000540| 30 3a 51 28 4a 29 3d 30 | 3a 50 28 4a 29 3d 30 3a |0:Q(J)=0|:P(J)=0:|
|00000550| ed 4a 0d 03 f7 6f e3 20 | 4a 3d 31 20 b8 20 61 72 |.J...o. |J=1 . ar|
|00000560| 72 61 79 73 69 7a 65 25 | 2a 47 25 3a e3 20 4b 3d |raysize%|*G%:. K=|
|00000570| 31 20 b8 20 61 72 72 61 | 79 73 69 7a 65 25 2a 47 |1 . arra|ysize%*G|
|00000580| 25 3a 57 35 28 4a 2c 4b | 29 3d 30 3a 57 36 28 4a |%:W5(J,K|)=0:W6(J|
|00000590| 2c 4b 29 3d 30 3a 57 37 | 28 4a 2c 4b 29 3d 30 3a |,K)=0:W7|(J,K)=0:|
|000005a0| 41 35 28 4a 2c 4b 29 3d | 30 3a 41 36 28 4a 2c 4b |A5(J,K)=|0:A6(J,K|
|000005b0| 29 3d 30 3a 41 37 28 4a | 2c 4b 29 3d 30 3a ed 3a |)=0:A7(J|,K)=0:.:|
|000005c0| ed 0d 03 fc 39 20 49 35 | 3d 30 3a 49 36 3d 30 3a |....9 I5|=0:I6=0:|
|000005d0| 4e 3d 30 3a 53 32 3d 30 | 3a 53 33 3d 30 3a 4b 3d |N=0:S2=0|:S3=0:K=|
|000005e0| 30 3a 4b 31 3d 30 3a 53 | 34 3d 30 3a 53 35 3d 30 |0:K1=0:S|4=0:S5=0|
|000005f0| 3a 53 36 3d 30 3a 53 37 | 3d 30 0d 04 01 0d e3 20 |:S6=0:S7|=0..... |
|00000600| 48 3d 31 20 b8 20 42 0d | 04 06 0e 20 e3 20 49 3d |H=1 . B.|... . I=|
|00000610| 31 20 b8 20 43 0d 04 10 | 0e 20 e3 20 4a 3d 31 20 |1 . C...|. . J=1 |
|00000620| b8 20 52 0d 04 15 09 20 | 4b 31 3d 30 0d 04 1a 0e |. R.... |K1=0....|
|00000630| 20 e3 20 4b 3d 31 20 b8 | 20 4d 0d 04 1f 21 49 35 | . K=1 .| M...!I5|
|00000640| 3d 49 35 2b 31 3a 50 25 | 3d 49 35 20 83 32 34 30 |=I5+1:P%|=I5 .240|
|00000650| 3a 4b 25 3d 49 35 20 81 | 32 34 30 0d 04 24 0f 58 |:K%=I5 .|240..$.X|
|00000660| 3d 58 31 28 50 25 2c 4b | 25 29 0d 04 2e 28 e7 20 |=X1(P%,K|%)...(. |
|00000670| 58 3c 2e 30 30 31 20 80 | 20 64 75 6d 6d 79 25 3d |X<.001 .| dummy%=|
|00000680| 30 20 8c 20 4b 31 3d 4b | 31 2b 31 3a e5 20 8d 44 |0 . K1=K|1+1:. .D|
|00000690| 42 44 0d 04 38 14 20 41 | 3d 41 2b 58 20 3a 20 53 |BD..8. A|=A+X : S|
|000006a0| 3d 53 2b 58 5e 32 0d 04 | 42 08 20 ed 20 4b 0d 04 |=S+X^2..|B. . K..|
|000006b0| 56 16 20 f1 20 22 43 45 | 4c 4c 20 43 4f 4d 50 4c |V. . "CE|LL COMPL|
|000006c0| 45 54 45 22 0d 04 5b 0b | 20 4b 3d 4d 2d 4b 31 0d |ETE"..[.| K=M-K1.|
|000006d0| 04 5d 0d 20 49 36 3d 49 | 36 2b 4b 31 0d 04 60 3f |.]. I6=I|6+K1..`?|
|000006e0| 20 54 3d 54 2b 41 20 3a | 4e 3d 4e 2b 4b 20 3a 50 | T=T+A :|N=N+K :P|
|000006f0| 28 49 29 3d 50 28 49 29 | 2b 4b 20 3a 51 28 4a 29 |(I)=P(I)|+K :Q(J)|
|00000700| 3d 51 28 4a 29 2b 4b 20 | 3a 4f 3d 4f 2b 4b 20 3a |=Q(J)+K |:O=O+K :|
|00000710| 53 31 3d 53 31 2b 41 5e | 32 2f 4b 0d 04 6a 2a 20 |S1=S1+A^|2/K..j* |
|00000720| 41 34 3d 41 34 2b 41 3a | 20 41 33 28 4a 29 3d 41 |A4=A4+A:| A3(J)=A|
|00000730| 33 28 4a 29 2b 41 3a 20 | 41 32 28 49 29 3d 41 32 |3(J)+A: |A2(I)=A2|
|00000740| 28 49 29 2b 41 0d 04 74 | 3c 20 57 35 28 49 2c 4a |(I)+A..t|< W5(I,J|
|00000750| 29 3d 57 35 28 49 2c 4a | 29 2b 4b 3a 20 57 36 28 |)=W5(I,J|)+K: W6(|
|00000760| 49 2c 48 29 3d 57 36 28 | 49 2c 48 29 2b 4b 3a 20 |I,H)=W6(|I,H)+K: |
|00000770| 57 37 28 4a 2c 48 29 3d | 57 37 28 4a 2c 48 29 2b |W7(J,H)=|W7(J,H)+|
|00000780| 4b 0d 04 7e 3c 20 41 35 | 28 49 2c 4a 29 3d 41 35 |K..~< A5|(I,J)=A5|
|00000790| 28 49 2c 4a 29 2b 41 3a | 20 41 36 28 49 2c 48 29 |(I,J)+A:| A6(I,H)|
|000007a0| 3d 41 36 28 49 2c 48 29 | 2b 41 3a 20 41 37 28 4a |=A6(I,H)|+A: A7(J|
|000007b0| 2c 48 29 3d 41 37 28 4a | 2c 48 29 2b 41 0d 04 88 |,H)=A7(J|,H)+A...|
|000007c0| 0e 20 41 3d 30 20 3a 20 | ed 20 4a 0d 04 92 18 20 |. A=0 : |. J.... |
|000007d0| f1 20 22 43 4f 4c 55 4d | 4e 20 43 4f 4d 50 4c 45 |. "COLUM|N COMPLE|
|000007e0| 54 45 22 0d 04 9c 08 20 | ed 20 49 0d 04 a6 17 20 |TE".... |. I.... |
|000007f0| f1 20 22 42 4c 4f 43 4b | 20 43 4f 4d 50 4c 45 54 |. "BLOCK| COMPLET|
|00000800| 45 22 0d 04 b0 1e 20 53 | 34 3d 53 34 2b 41 34 5e |E".... S|4=S4+A4^|
|00000810| 32 2f 4f 20 3a 20 4f 3d | 30 20 3a 20 41 34 3d 30 |2/O : O=|0 : A4=0|
|00000820| 0d 04 ba 08 20 ed 20 48 | 0d 04 c4 27 20 e3 20 4a |.... . H|...' . J|
|00000830| 3d 31 20 b8 20 52 3a 20 | 53 33 3d 53 33 2b 41 33 |=1 . R: |S3=S3+A3|
|00000840| 28 4a 29 5e 32 2f 51 28 | 4a 29 3a 20 ed 20 4a 0d |(J)^2/Q(|J): . J.|
|00000850| 04 ce 27 20 e3 20 49 3d | 31 20 b8 20 43 3a 20 53 |..' . I=|1 . C: S|
|00000860| 32 3d 53 32 2b 41 32 28 | 49 29 5e 32 2f 50 28 49 |2=S2+A2(|I)^2/P(I|
|00000870| 29 3a 20 ed 20 49 0d 04 | d8 37 20 e3 20 49 3d 31 |): . I..|.7 . I=1|
|00000880| b8 20 43 3a e3 20 4a 3d | 31 b8 20 52 3a 20 53 35 |. C:. J=|1. R: S5|
|00000890| 3d 53 35 2b 41 35 28 49 | 2c 4a 29 5e 32 2f 57 35 |=S5+A5(I|,J)^2/W5|
|000008a0| 28 49 2c 4a 29 3a 20 ed | 20 4a 3a ed 49 0d 04 e2 |(I,J): .| J:.I...|
|000008b0| 38 20 e3 20 49 3d 31 b8 | 20 43 3a e3 20 48 3d 31 |8 . I=1.| C:. H=1|
|000008c0| b8 20 42 3a 20 53 36 3d | 53 36 2b 41 36 28 49 2c |. B: S6=|S6+A6(I,|
|000008d0| 48 29 5e 32 2f 57 36 28 | 49 2c 48 29 3a 20 ed 20 |H)^2/W6(|I,H): . |
|000008e0| 48 20 3a ed 49 0d 04 ec | 37 20 e3 20 4a 3d 31 b8 |H :.I...|7 . J=1.|
|000008f0| 20 52 3a e3 20 48 3d 31 | b8 20 42 3a 20 53 37 3d | R:. H=1|. B: S7=|
|00000900| 53 37 2b 41 37 28 4a 2c | 48 29 5e 32 2f 57 37 28 |S7+A7(J,|H)^2/W7(|
|00000910| 4a 2c 48 29 3a ed 20 48 | 3a ed 20 4a 0d 04 f6 0c |J,H):. H|:. J....|
|00000920| 20 46 3d 54 5e 32 2f 4e | 0d 05 00 0c 20 53 34 3d | F=T^2/N|.... S4=|
|00000930| 53 34 2d 46 0d 05 0a 0c | 20 53 33 3d 53 33 2d 46 |S4-F....| S3=S3-F|
|00000940| 0d 05 14 0c 20 53 32 3d | 53 32 2d 46 0d 05 1e 32 |.... S2=|S2-F...2|
|00000950| 20 53 35 3d 53 35 2d 53 | 33 2d 53 32 2d 46 20 3a | S5=S5-S|3-S2-F :|
|00000960| 20 53 36 3d 53 36 2d 53 | 34 2d 53 32 2d 46 20 3a | S6=S6-S|4-S2-F :|
|00000970| 20 53 37 3d 53 37 2d 53 | 34 2d 53 33 2d 46 0d 05 | S7=S7-S|4-S3-F..|
|00000980| 28 1e 20 53 31 3d 53 31 | 2d 53 32 2d 53 33 2d 53 |(. S1=S1|-S2-S3-S|
|00000990| 34 2d 53 35 2d 53 36 2d | 53 37 2d 46 0d 05 32 1f |4-S5-S6-|S7-F..2.|
|000009a0| 20 53 3d 53 2d 46 2d 53 | 31 2d 53 32 2d 53 33 2d | S=S-F-S|1-S2-S3-|
|000009b0| 53 34 2d 53 35 2d 53 36 | 2d 53 37 0d 05 3c 34 20 |S4-S5-S6|-S7..<4 |
|000009c0| 44 34 3d 42 2d 31 20 3a | 20 44 33 3d 52 2d 31 20 |D4=B-1 :| D3=R-1 |
|000009d0| 3a 20 44 32 3d 43 2d 31 | 20 3a 20 44 31 3d 28 42 |: D2=C-1| : D1=(B|
|000009e0| 2d 31 29 2a 28 43 2d 31 | 29 2a 28 52 2d 31 29 0d |-1)*(C-1|)*(R-1).|
|000009f0| 05 46 35 20 44 35 3d 28 | 52 2d 31 29 2a 28 43 2d |.F5 D5=(|R-1)*(C-|
|00000a00| 31 29 20 3a 20 44 36 3d | 28 43 2d 31 29 2a 28 42 |1) : D6=|(C-1)*(B|
|00000a10| 2d 31 29 20 3a 20 44 37 | 3d 28 52 2d 31 29 2a 28 |-1) : D7|=(R-1)*(|
|00000a20| 42 2d 31 29 0d 05 50 1f | 20 44 3d 4e 2d 31 2d 44 |B-1)..P.| D=N-1-D|
|00000a30| 31 2d 44 32 2d 44 33 2d | 44 34 2d 44 35 2d 44 36 |1-D2-D3-|D4-D5-D6|
|00000a40| 2d 44 37 0d 05 64 43 20 | 56 31 3d 53 31 2f 44 31 |-D7..dC |V1=S1/D1|
|00000a50| 3a 56 32 3d 53 32 2f 44 | 32 3a 56 33 3d 53 33 2f |:V2=S2/D|2:V3=S3/|
|00000a60| 44 33 3a 56 34 3d 53 34 | 2f 44 34 3a 56 35 3d 53 |D3:V4=S4|/D4:V5=S|
|00000a70| 35 2f 44 35 3a 56 36 3d | 53 36 2f 44 36 3a 56 37 |5/D5:V6=|S6/D6:V7|
|00000a80| 3d 53 37 2f 44 37 0d 05 | 6e 19 20 e7 20 4d 3d 31 |=S7/D7..|n. . M=1|
|00000a90| 20 8c 20 56 3d 56 31 20 | 8b 20 56 3d 53 2f 44 0d | . V=V1 |. V=S/D.|
|00000aa0| 13 60 1b 20 f1 20 22 41 | 4e 41 4c 59 53 49 53 20 |.`. . "A|NALYSIS |
|00000ab0| 43 4f 4d 50 4c 45 54 45 | 22 27 0d 13 6a 33 20 f1 |COMPLETE|"'..j3 .|
|00000ac0| 3b 49 36 3b 22 20 44 75 | 6d 6d 79 20 64 61 74 61 |;I6;" Du|mmy data|
|00000ad0| 20 76 61 6c 75 65 73 20 | 77 65 72 65 20 6f 6d 69 | values |were omi|
|00000ae0| 74 74 65 64 20 28 3c 2e | 30 30 31 29 22 0d 13 74 |tted (<.|001)"..t|
|00000af0| 32 20 f1 27 27 22 46 69 | 6c 65 20 72 65 66 20 4e |2 .''"Fi|le ref N|
|00000b00| 6f 3a 20 20 22 3b 72 65 | 66 24 3b 27 22 44 65 73 |o: ";re|f$;'"Des|
|00000b10| 63 72 69 70 74 69 6f 6e | 3a 20 20 22 3b 41 24 0d |cription|: ";A$.|
|00000b20| 13 88 2b 20 f1 27 22 53 | 4f 55 52 43 45 20 20 20 |..+ .'"S|OURCE |
|00000b30| 20 20 20 20 44 4f 46 20 | 20 20 56 41 52 49 41 4e | DOF | VARIAN|
|00000b40| 43 45 20 52 41 54 49 4f | 22 27 0d 13 93 1e 20 f1 |CE RATIO|"'.... .|
|00000b50| 20 22 42 4c 4f 43 4b 2e | 2e 2e 2e 2e 2e 2e 2e 22 | "BLOCK.|......."|
|00000b60| 3b 44 34 2c 56 34 2f 56 | 0d 13 94 1e 20 f1 20 22 |;D4,V4/V|.... . "|
|00000b70| 52 4f 57 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 22 3b 44 |ROW.....|.....";D|
|00000b80| 33 2c 56 33 2f 56 0d 13 | 95 1e 20 f1 20 22 43 4f |3,V3/V..|.. . "CO|
|00000b90| 4c 55 4d 4e 2e 2e 2e 2e | 2e 2e 2e 22 3b 44 32 2c |LUMN....|...";D2,|
|00000ba0| 56 32 2f 56 0d 13 96 1e | 20 f1 20 22 42 4c 4f 43 |V2/V....| . "BLOC|
|00000bb0| 4b 2f 52 4f 57 2e 2e 2e | 2e 22 3b 44 37 2c 56 37 |K/ROW...|.";D7,V7|
|00000bc0| 2f 56 0d 13 97 1e 20 f1 | 20 22 42 4c 4f 43 4b 2f |/V.... .| "BLOCK/|
|00000bd0| 43 4f 4c 55 4d 4e 2e 22 | 3b 44 36 2c 56 36 2f 56 |COLUMN."|;D6,V6/V|
|00000be0| 0d 13 98 1e 20 f1 20 22 | 52 4f 57 2f 43 4f 4c 55 |.... . "|ROW/COLU|
|00000bf0| 4d 4e 2e 2e 2e 22 3b 44 | 35 2c 56 35 2f 56 0d 13 |MN...";D|5,V5/V..|
|00000c00| 99 1e 20 f1 20 22 49 4e | 54 45 52 41 43 54 49 4f |.. . "IN|TERACTIO|
|00000c10| 4e 2e 2e 22 3b 44 31 2c | 56 31 2f 56 0d 13 9a 11 |N..";D1,|V1/V....|
|00000c20| 20 e7 20 4d 3d 31 20 e5 | 20 8d 74 7a 53 0d 13 a6 | . M=1 .| .tzS...|
|00000c30| 18 20 f1 20 22 52 45 53 | 49 44 55 41 4c 2e 2e 2e |. . "RES|IDUAL...|
|00000c40| 2e 2e 22 3b 44 0d 13 ba | 35 f1 27 22 52 65 73 75 |..";D...|5.'"Resu|
|00000c50| 6c 74 20 6f 72 20 64 61 | 74 61 20 74 6f 20 70 72 |lt or da|ta to pr|
|00000c60| 69 6e 74 65 72 20 52 2f | 44 20 6f 72 20 65 6e 64 |inter R/|D or end|
|00000c70| 20 45 20 22 3a 53 57 24 | 3d be 0d 13 c4 20 20 e7 | E ":SW$|=.... .|
|00000c80| 20 53 57 24 3d 22 52 22 | 20 84 20 53 57 24 3d 22 | SW$="R"| . SW$="|
|00000c90| 72 22 8c 20 f2 70 72 69 | 6e 74 0d 13 c9 24 20 e7 |r". .pri|nt...$ .|
|00000ca0| 20 53 57 24 3d 22 44 22 | 20 84 20 53 57 24 3d 22 | SW$="D"| . SW$="|
|00000cb0| 64 22 8c 20 f2 70 72 69 | 6e 74 64 61 74 61 0d 13 |d". .pri|ntdata..|
|00000cc0| ce 21 20 e7 20 53 57 24 | 3c 3e 22 45 22 20 80 20 |.! . SW$|<>"E" . |
|00000cd0| 53 57 24 3c 3e 22 65 22 | 20 e5 20 8d 74 7a 53 0d |SW$<>"e"| . .tzS.|
|00000ce0| 13 f6 0a e5 20 8d 74 42 | 40 0d 23 28 0c 20 dd f2 |.... .tB|@.#(. ..|
|00000cf0| 70 72 69 6e 74 0d 23 32 | 07 20 ef 32 0d 23 46 54 |print.#2|. .2.#FT|
|00000d00| 20 f1 27 22 54 48 52 45 | 45 20 57 41 59 20 41 4e | .'"THRE|E WAY AN|
|00000d10| 41 4c 59 53 49 53 20 4f | 46 20 56 41 52 49 41 4e |ALYSIS O|F VARIAN|
|00000d20| 43 45 22 3b 3a e7 20 4d | 3d 31 20 f1 22 20 28 55 |CE";:. M|=1 ." (U|
|00000d30| 6e 72 65 70 6c 69 63 61 | 74 65 64 29 22 20 8b 20 |nreplica|ted)" . |
|00000d40| f1 22 20 28 72 65 70 6c | 69 63 61 74 65 64 29 22 |." (repl|icated)"|
|00000d50| 0d 23 50 32 20 f1 27 27 | 22 46 69 6c 65 20 72 65 |.#P2 .''|"File re|
|00000d60| 66 20 4e 6f 3a 20 20 22 | 3b 72 65 66 24 3b 27 22 |f No: "|;ref$;'"|
|00000d70| 44 65 73 63 72 69 70 74 | 69 6f 6e 3a 20 20 22 3b |Descript|ion: ";|
|00000d80| 41 24 0d 23 5a 45 20 f1 | 27 22 46 41 43 54 4f 52 |A$.#ZE .|'"FACTOR|
|00000d90| 53 2e 2e 2e 2e 2e 2e 44 | 4f 46 2e 2e 2e 2e 2e 2e |S......D|OF......|
|00000da0| 53 55 4d 2e 4f 46 2e 53 | 51 55 41 52 45 53 2e 2e |SUM.OF.S|QUARES..|
|00000db0| 2e 2e 56 41 52 49 41 4e | 43 45 2e 2e 2e 56 41 52 |..VARIAN|CE...VAR|
|00000dc0| 2e 52 41 54 49 4f 22 0d | 23 5b 37 20 f1 22 42 4c |.RATIO".|#[7 ."BL|
|00000dd0| 4f 43 4b 2e 2e 2e 2e 2e | 2e 2e 2e 2e 22 3b 44 34 |OCK.....|....";D4|
|00000de0| 3b 3a 40 25 3d 26 32 30 | 35 30 43 3a f1 2c 53 34 |;:@%=&20|50C:.,S4|
|00000df0| 2c 56 34 2c 56 34 2f 56 | 3a 40 25 3d 31 30 0d 23 |,V4,V4/V|:@%=10.#|
|00000e00| 5c 37 20 f1 22 52 4f 57 | 2e 2e 2e 2e 2e 2e 2e 2e |\7 ."ROW|........|
|00000e10| 2e 2e 2e 22 3b 44 33 3b | 3a 40 25 3d 26 32 30 35 |...";D3;|:@%=&205|
|00000e20| 30 43 3a f1 2c 53 33 2c | 56 33 2c 56 33 2f 56 3a |0C:.,S3,|V3,V3/V:|
|00000e30| 40 25 3d 31 30 0d 23 5d | 37 20 f1 22 43 4f 4c 55 |@%=10.#]|7 ."COLU|
|00000e40| 4d 4e 2e 2e 2e 2e 2e 2e | 2e 2e 22 3b 44 32 3b 3a |MN......|..";D2;:|
|00000e50| 40 25 3d 26 32 30 35 30 | 43 3a f1 2c 53 32 2c 56 |@%=&2050|C:.,S2,V|
|00000e60| 32 2c 56 32 2f 56 3a 40 | 25 3d 31 30 0d 23 5e 38 |2,V2/V:@|%=10.#^8|
|00000e70| 20 f1 20 22 42 4c 4f 43 | 4b 2f 52 4f 57 2e 2e 2e | . "BLOC|K/ROW...|
|00000e80| 2e 2e 22 3b 44 37 3b 3a | 40 25 3d 26 32 30 35 30 |..";D7;:|@%=&2050|
|00000e90| 43 3a f1 2c 53 37 2c 56 | 37 2c 56 37 2f 56 3a 40 |C:.,S7,V|7,V7/V:@|
|00000ea0| 25 3d 31 30 0d 23 5f 38 | 20 f1 20 22 42 4c 4f 43 |%=10.#_8| . "BLOC|
|00000eb0| 4b 2f 43 4f 4c 55 4d 4e | 2e 2e 22 3b 44 36 3b 3a |K/COLUMN|..";D6;:|
|00000ec0| 40 25 3d 26 32 30 35 30 | 43 3a f1 2c 53 36 2c 56 |@%=&2050|C:.,S6,V|
|00000ed0| 36 2c 56 36 2f 56 3a 40 | 25 3d 31 30 0d 23 60 38 |6,V6/V:@|%=10.#`8|
|00000ee0| 20 f1 20 22 52 4f 57 2f | 43 4f 4c 55 4d 4e 2e 2e | . "ROW/|COLUMN..|
|00000ef0| 2e 2e 22 3b 44 35 3b 3a | 40 25 3d 26 32 30 35 30 |..";D5;:|@%=&2050|
|00000f00| 43 3a f1 2c 53 35 2c 56 | 35 2c 56 35 2f 56 3a 40 |C:.,S5,V|5,V5/V:@|
|00000f10| 25 3d 31 30 0d 23 61 32 | 20 f1 20 22 49 4e 54 45 |%=10.#a2| . "INTE|
|00000f20| 52 41 43 54 49 4f 4e 2e | 2e 2e 22 3b 44 31 3b 3a |RACTION.|..";D1;:|
|00000f30| 40 25 3d 26 32 30 35 30 | 43 3a f1 2c 53 31 2c 56 |@%=&2050|C:.,S1,V|
|00000f40| 31 2c 56 31 2f 56 0d 23 | 64 0a 20 40 25 3d 31 30 |1,V1/V.#|d. @%=10|
|00000f50| 0d 23 78 2f 20 e7 20 4d | 3e 31 20 f1 22 52 45 53 |.#x/ . M|>1 ."RES|
|00000f60| 49 44 55 41 4c 2e 2e 2e | 2e 2e 2e 22 3b 44 3b 3a |IDUAL...|...";D;:|
|00000f70| 40 25 3d 26 32 30 35 30 | 43 3a f1 2c 53 2c 56 0d |@%=&2050|C:.,S,V.|
|00000f80| 23 82 0a 20 40 25 3d 31 | 30 0d 23 8c 0a 20 ef 33 |#.. @%=1|0.#.. .3|
|00000f90| 20 3a e1 0d 23 f0 2a dd | f2 70 72 69 6e 74 64 61 | :..#.*.|.printda|
|00000fa0| 74 61 3a ef 32 3a ef 31 | 2c 31 35 3a 49 25 3d 38 |ta:.2:.1|,15:I%=8|
|00000fb0| 3a 40 25 3d 26 30 30 30 | 30 30 35 30 43 0d 23 f5 |:@%=&000|0050C.#.|
|00000fc0| 32 20 f1 27 27 22 46 69 | 6c 65 20 72 65 66 20 4e |2 .''"Fi|le ref N|
|00000fd0| 6f 3a 20 20 22 3b 72 65 | 66 24 3b 27 22 44 65 73 |o: ";re|f$;'"Des|
|00000fe0| 63 72 69 70 74 69 6f 6e | 3a 20 20 22 3b 41 24 0d |cription|: ";A$.|
|00000ff0| 23 fa 1b e3 20 52 25 3d | 31 20 b8 20 28 43 2a 52 |#... R%=|1 . (C*R|
|00001000| 2a 42 20 81 20 49 25 29 | 2b 31 0d 24 04 0e e3 20 |*B . I%)|+1.$... |
|00001010| 51 25 3d 31 20 b8 20 4d | 0d 24 0e 0f e3 20 50 25 |Q%=1 . M|.$... P%|
|00001020| 3d 31 20 b8 20 49 25 0d | 24 18 22 f1 58 31 28 28 |=1 . I%.|$.".X1((|
|00001030| 52 25 2d 31 29 2a 49 25 | 2a 4d 2b 28 50 25 2d 31 |R%-1)*I%|*M+(P%-1|
|00001040| 29 2a 4d 2b 51 25 29 2c | 3b 0d 24 22 0d ed 3a f1 |)*M+Q%),|;.$"..:.|
|00001050| 3a ed 3a f1 3a ed 0d 24 | 54 15 ef 31 2c 31 38 3a |:.:.:..$|T..1,18:|
|00001060| ef 33 3a 40 25 3d 26 31 | 30 3a e1 0d 27 10 0a dd |.3:@%=&1|0:..'...|
|00001070| f2 6c 6f 61 64 0d 27 15 | 36 f1 3a e8 22 45 6e 74 |.load.'.|6.:."Ent|
|00001080| 65 72 20 4e 6f 2e 6f 66 | 20 72 65 73 75 6c 74 73 |er No.of| results|
|00001090| 22 2c 4e 39 3a f1 22 45 | 6e 74 65 72 20 22 3b 4e |",N9:."E|nter ";N|
|000010a0| 39 3b 22 20 76 61 6c 75 | 65 73 22 0d 27 24 70 e3 |9;" valu|es".'$p.|
|000010b0| 20 4b 25 3d 30 20 b8 20 | 61 72 72 61 79 73 69 7a | K%=0 . |arraysiz|
|000010c0| 65 25 3a 20 e3 20 49 3d | 31 20 b8 20 32 34 30 3a |e%: . I=|1 . 240:|
|000010d0| e7 20 4b 25 2a 32 34 30 | 2b 49 3d 4e 39 2b 31 20 |. K%*240|+I=N9+1 |
|000010e0| 4b 25 3d 61 72 72 61 79 | 73 69 7a 65 25 3a 49 3d |K%=array|size%:I=|
|000010f0| 32 34 30 20 8b 20 f1 22 | 45 4e 54 45 52 20 58 31 |240 . ."|ENTER X1|
|00001100| 28 22 3b 4b 25 2a 32 34 | 30 2b 49 3b 22 29 22 3b |(";K%*24|0+I;")";|
|00001110| 3a e8 20 58 31 28 49 2c | 4b 25 29 0d 27 42 07 ed |:. X1(I,|K%).'B..|
|00001120| 3a ed 0d 27 4c 29 e8 22 | 45 6e 74 65 72 20 61 20 |:..'L)."|Enter a |
|00001130| 64 65 73 63 72 69 70 74 | 69 6f 6e 20 6f 66 20 74 |descript|ion of t|
|00001140| 68 65 20 64 61 74 61 22 | 2c 41 24 0d 27 56 05 e1 |he data"|,A$.'V..|
|00001150| 0d 27 5b 05 3a 0d 27 60 | 1e dd f2 64 69 73 70 3a |.'[.:.'`|...disp:|
|00001160| ea 20 4b 25 2c 4c 25 2c | 4d 25 2c 50 25 2c 51 25 |. K%,L%,|M%,P%,Q%|
|00001170| 2c 4b 39 0d 27 62 3b 4b | 25 3d 30 3a 6c 6f 25 3d |,K9.'b;K|%=0:lo%=|
|00001180| 30 3a e7 20 4e 39 3d 30 | 20 f1 27 22 83 9d 88 81 |0:. N9=0| .'"....|
|00001190| 3e 20 20 4e 4f 20 20 44 | 41 54 41 20 20 3c 89 22 |> NO D|ATA <."|
|000011a0| 27 3a 64 65 6c 3d a6 28 | 32 35 30 29 3a e1 0d 27 |':del=.(|250):..'|
|000011b0| 65 43 e3 20 4b 25 3d 30 | 20 b8 20 4e 39 20 81 20 |eC. K%=0| . N9 . |
|000011c0| 32 34 30 3a e7 20 4e 39 | 2d 4b 25 2a 32 34 30 3e |240:. N9|-K%*240>|
|000011d0| 32 33 39 20 8c 20 4f 25 | 3d 33 20 8b 20 4f 25 3d |239 . O%|=3 . O%=|
|000011e0| 28 4e 39 2d 4b 25 2a 32 | 34 30 2d 31 29 81 20 36 |(N9-K%*2|40-1). 6|
|000011f0| 30 0d 27 6a 17 e3 20 4c | 25 3d 30 20 b8 20 4f 25 |0.'j.. L|%=0 . O%|
|00001200| 3a 4b 39 3d 4c 25 3a db | 0d 27 74 59 e3 20 4d 25 |:K9=L%:.|.'tY. M%|
|00001210| 3d 30 20 b8 20 32 3a 51 | 25 3d 4b 25 2a 32 34 30 |=0 . 2:Q|%=K%*240|
|00001220| 2b 4c 25 2a 36 30 3a 20 | e7 20 20 51 25 3e 39 39 |+L%*60: |. Q%>99|
|00001230| 39 20 f1 8a 35 2c 32 29 | 3b 22 92 9d 88 81 49 4e |9 ..5,2)|;"....IN|
|00001240| 44 45 58 20 22 3b c0 c3 | 28 51 25 29 2c 31 29 3b |DEX ";..|(Q%),1);|
|00001250| 22 20 54 48 4f 55 53 41 | 4e 44 2c 2e 2e 92 95 22 |" THOUSA|ND,...."|
|00001260| 3b 0d 27 7e 0f e3 20 50 | 25 3d 31 20 b8 20 32 30 |;.'~.. P|%=1 . 20|
|00001270| 0d 27 88 63 f1 8a 4d 25 | 2a 31 33 2c 50 25 2b 32 |.'.c..M%|*13,P%+2|
|00001280| 29 3b c2 c3 28 4b 25 2a | 32 34 30 2b 4c 25 2a 36 |);..(K%*|240+L%*6|
|00001290| 30 2b 4d 25 2a 32 30 2b | 50 25 29 2c 33 29 3b 8a |0+M%*20+|P%),3);.|
|000012a0| 4d 25 2a 31 33 2b 34 2c | 50 25 2b 32 29 3b a4 75 |M%*13+4,|P%+2);.u|
|000012b0| 73 69 6e 67 28 73 68 61 | 70 65 24 2c 58 31 28 4c |sing(sha|pe$,X1(L|
|000012c0| 25 2a 36 30 2b 4d 25 2a | 32 30 2b 50 25 2c 4b 25 |%*60+M%*|20+P%,K%|
|000012d0| 29 29 3b 0d 27 9c 0b ed | 50 25 3a ed 4d 25 0d 27 |));.'...|P%:.M%.'|
|000012e0| a1 11 e7 20 46 34 3d 31 | 20 f2 61 6d 65 6e 64 0d |... F4=1| .amend.|
|000012f0| 27 a2 12 e7 20 46 34 3d | 32 20 f2 64 65 6c 65 74 |'... F4=|2 .delet|
|00001300| 65 0d 27 a3 12 e7 20 46 | 34 3d 33 20 f2 69 6e 73 |e.'... F|4=3 .ins|
|00001310| 65 72 74 0d 27 a6 15 ed | 4c 25 3a ed 20 4b 25 3a |ert.'...|L%:. K%:|
|00001320| 40 25 3d 26 31 30 3a e1 | 0d 27 ab 05 3a 0d 27 b0 |@%=&10:.|.'..:.'.|
|00001330| 17 dd f2 61 6d 65 6e 64 | 3a ea 20 6c 6f 25 2c 49 |...amend|:. lo%,I|
|00001340| 25 2c 52 25 0d 27 ba 59 | f1 8a 30 2c 31 29 3b 22 |%,R%.'.Y|..0,1);"|
|00001350| 83 9d 81 41 4d 45 4e 44 | 20 52 4f 55 54 49 4e 45 |...AMEND| ROUTINE|
|00001360| 20 20 9c 87 41 6d 65 6e | 64 20 64 61 74 61 20 59 | ..Amen|d data Y|
|00001370| 2f 4e 3f 20 20 20 20 20 | 20 20 22 3a 53 57 24 3d |/N? | ":SW$=|
|00001380| be 3a e7 20 53 57 24 3c | 3e 22 59 22 20 80 20 53 |.:. SW$<|>"Y" . S|
|00001390| 57 24 3c 3e 22 79 22 20 | 8c 20 db 3a e1 0d 27 c4 |W$<>"y" |. .:..'.|
|000013a0| 61 f1 8a 30 2c 31 29 3b | 22 45 6e 74 65 72 20 61 |a..0,1);|"Enter a|
|000013b0| 72 72 61 79 20 73 75 62 | 73 63 72 69 70 74 73 20 |rray sub|scripts |
|000013c0| 6f 66 20 65 61 63 68 20 | 76 61 6c 75 65 20 74 6f |of each |value to|
|000013d0| 20 62 65 20 61 6d 65 6e | 64 65 64 20 74 68 65 6e | be amen|ded then|
|000013e0| 20 7a 65 72 6f 20 74 6f | 20 74 65 72 6d 69 6e 61 | zero to| termina|
|000013f0| 74 65 22 3a 64 65 6c 3d | a6 28 31 30 30 29 0d 27 |te":del=|.(100).'|
|00001400| ce 09 6c 6f 25 3d 30 0d | 27 d8 b5 f5 3a 6c 6f 25 |..lo%=0.|'...:lo%|
|00001410| 3d 6c 6f 25 2b 31 3a f1 | 8a 30 2c 31 29 3b c4 37 |=lo%+1:.|.0,1);.7|
|00001420| 35 2c 22 20 22 29 3b 8a | 35 2c 31 29 3b 3a e8 22 |5," ");.|5,1);:."|
|00001430| 4e 65 78 74 20 73 75 62 | 73 63 72 69 70 74 22 2c |Next sub|script",|
|00001440| 49 25 28 6c 6f 25 29 3a | f1 49 25 28 6c 6f 25 29 |I%(lo%):|.I%(lo%)|
|00001450| 2c 4b 25 2a 32 34 30 2b | 4c 25 2a 36 30 2b 36 30 |,K%*240+|L%*60+60|
|00001460| 20 3a f1 8a 30 2c 30 29 | c4 31 35 2c 22 20 22 29 | :..0,0)|.15," ")|
|00001470| 3a fd 20 49 25 28 6c 6f | 25 29 3e 4b 25 2a 32 34 |:. I%(lo|%)>K%*24|
|00001480| 30 2b 4c 25 2a 36 30 2b | 36 30 20 84 20 49 25 28 |0+L%*60+|60 . I%(|
|00001490| 6c 6f 25 29 3c 4b 25 2a | 32 34 30 2b 4c 25 2a 36 |lo%)<K%*|240+L%*6|
|000014a0| 30 2b 31 20 84 20 49 25 | 28 6c 6f 25 29 3e 4e 39 |0+1 . I%|(lo%)>N9|
|000014b0| 20 84 20 49 25 28 6c 6f | 25 29 3d 30 0d 27 e2 3a | . I%(lo|%)=0.'.:|
|000014c0| e7 20 49 25 28 6c 6f 25 | 29 3c 3e 30 20 8c 20 f1 |. I%(lo%|)<>0 . .|
|000014d0| 8a 30 2c 30 29 22 85 88 | 4f 75 74 20 6f 66 20 72 |.0,0)"..|Out of r|
|000014e0| 61 6e 67 65 22 3a 6c 6f | 25 3d 6c 6f 25 2d 31 3a |ange":lo|%=lo%-1:|
|000014f0| e5 20 8d 64 58 67 0d 27 | ec 4b 54 3d 6c 6f 25 3a |. .dXg.'|.KT=lo%:|
|00001500| e3 20 6c 6f 25 3d 31 20 | b8 20 54 2d 31 3a 52 25 |. lo%=1 |. T-1:R%|
|00001510| 3d 49 25 28 6c 6f 25 29 | 81 32 34 30 3a 53 25 3d |=I%(lo%)|.240:S%=|
|00001520| 49 25 28 6c 6f 25 29 83 | 32 34 30 3a e7 20 53 25 |I%(lo%).|240:. S%|
|00001530| 3d 30 20 53 25 3d 32 34 | 30 3a 52 25 3d 52 25 2d |=0 S%=24|0:R%=R%-|
|00001540| 31 0d 27 f6 5c f1 8a 30 | 2c 31 29 3b c4 37 35 2c |1.'.\..0|,1);.75,|
|00001550| 22 20 22 29 8a 30 2c 31 | 29 3b 22 4f 6c 64 20 76 |" ").0,1|);"Old v|
|00001560| 61 6c 75 65 20 6f 66 20 | 58 31 28 22 3b 49 25 28 |alue of |X1(";I%(|
|00001570| 6c 6f 25 29 3b 22 29 3d | 22 3b 58 31 28 53 25 2c |lo%);")=|";X1(S%,|
|00001580| 52 25 29 3b 22 20 4e 65 | 77 20 76 61 6c 75 65 3f |R%);" Ne|w value?|
|00001590| 22 3b 3a e8 58 31 28 53 | 25 2c 52 25 29 0d 27 f8 |";:.X1(S|%,R%).'.|
|000015a0| 09 f2 70 6f 73 6e 0d 27 | fb 44 f1 8a 4a 39 2a 31 |..posn.'|.D..J9*1|
|000015b0| 33 2b 34 2c 49 39 2b 32 | 29 3b c4 39 2c 22 20 22 |3+4,I9+2|);.9," "|
|000015c0| 29 3b 8a 4a 39 2a 31 33 | 2b 34 2c 49 39 2b 32 29 |);.J9*13|+4,I9+2)|
|000015d0| 3b a4 75 73 69 6e 67 28 | 73 68 61 70 65 24 2c 58 |;.using(|shape$,X|
|000015e0| 31 28 53 25 2c 52 25 29 | 29 3b 0d 28 00 0c ed 3a |1(S%,R%)|);.(...:|
|000015f0| e5 20 8d 74 7a 67 0d 28 | 0a 07 db 3a e1 0d 28 14 |. .tzg.(|...:..(.|
|00001600| 0f dd f2 69 6e 70 75 74 | 28 44 24 29 0d 28 1e 18 |...input|(D$).(..|
|00001610| ea 20 50 25 2c 51 25 2c | 64 65 6c 2c 4e 25 2c 4a |. P%,Q%,|del,N%,J|
|00001620| 25 2c 4b 25 0d 28 64 32 | f1 27 22 45 6e 74 65 72 |%,K%.(d2|.'"Enter|
|00001630| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 3a 2d | the fol|lowing:-|
|00001640| 22 3a ff 20 28 22 6d 6f | 75 6e 74 20 22 2b c3 28 |":. ("mo|unt "+.(|
|00001650| 69 6e 63 25 29 29 0d 28 | 6e 42 f1 22 20 20 46 69 |inc%)).(|nB." Fi|
|00001660| 6c 65 20 72 65 66 65 72 | 65 6e 63 65 20 63 6f 64 |le refer|ence cod|
|00001670| 65 22 3a e8 72 65 66 24 | 3a e7 20 97 28 64 69 72 |e":.ref$|:. .(dir|
|00001680| 64 24 29 3c 3e 2d 31 20 | ff 20 28 22 44 49 52 20 |d$)<>-1 |. ("DIR |
|00001690| 22 2b 64 69 72 64 24 29 | 0d 28 78 72 e7 20 44 24 |"+dird$)|.(xr. D$|
|000016a0| 3d 22 46 22 20 84 20 44 | 24 3d 22 66 22 20 e8 22 |="F" . D|$="f" ."|
|000016b0| 20 20 4e 6f 2e 6f 66 20 | 44 41 54 41 20 76 61 6c | No.of |DATA val|
|000016c0| 75 65 73 20 66 72 6f 6d | 20 74 68 69 73 20 66 69 |ues from| this fi|
|000016d0| 6c 65 22 27 22 20 20 50 | 6f 73 69 74 69 6f 6e 20 |le"'" P|osition |
|000016e0| 4e 6f 2e 6f 66 20 66 69 | 72 73 74 20 44 41 54 41 |No.of fi|rst DATA|
|000016f0| 20 76 61 6c 75 65 22 2c | 50 25 2c 51 25 20 8b 20 | value",|P%,Q% . |
|00001700| 50 25 3d 4e 39 3a 51 25 | 3d 31 0d 28 82 0a 51 51 |P%=N9:Q%|=1.(..QQ|
|00001710| 25 3d 51 25 0d 28 8c 09 | f1 72 65 66 24 0d 28 96 |%=Q%.(..|.ref$.(.|
|00001720| 0d 66 3d ad 28 72 65 66 | 24 29 0d 28 b4 2e e7 20 |.f=.(ref|$).(... |
|00001730| 66 3d 30 20 f1 27 22 85 | 88 46 69 6c 65 20 22 3b |f=0 .'".|.File ";|
|00001740| 72 65 66 24 3b 22 20 6e | 6f 74 20 66 6f 75 6e 64 |ref$;" n|ot found|
|00001750| 22 3a e5 20 8d 44 64 68 | 0d 28 be 14 e8 23 66 2c |":. .Ddh|.(...#f,|
|00001760| 41 24 2c 4e 25 3a 4e 4e | 25 3d 4e 25 0d 28 d2 33 |A$,N%:NN|%=N%.(.3|
|00001770| e7 20 4e 25 2d 51 25 2b | 31 3c 50 25 20 f1 27 22 |. N%-Q%+|1<P% .'"|
|00001780| 82 88 49 6e 73 75 66 66 | 69 63 69 65 6e 74 20 64 |..Insuff|icient d|
|00001790| 61 74 61 22 3a d9 23 66 | 3a e5 20 8d 44 64 68 0d |ata":.#f|:. .Ddh.|
|000017a0| 28 dc 11 e7 20 51 25 3d | 31 20 8c 20 8d 64 70 68 |(... Q%=|1 . .dph|
|000017b0| 0d 28 e6 1c e3 20 52 25 | 3d 31 20 b8 20 51 25 2d |.(... R%|=1 . Q%-|
|000017c0| 31 3a e8 23 66 2c 58 64 | 75 6d 3a ed 0d 28 f0 33 |1:.#f,Xd|um:..(.3|
|000017d0| e3 20 52 25 3d 51 25 20 | b8 20 51 25 2b 50 25 2d |. R%=Q% |. Q%+P%-|
|000017e0| 31 3a 5a 25 3d 5a 25 2b | 31 3a 4a 25 3d 5a 25 20 |1:Z%=Z%+|1:J%=Z% |
|000017f0| 83 32 34 30 3a 4b 25 3d | 5a 25 20 81 32 34 30 0d |.240:K%=|Z% .240.|
|00001800| 28 fa 11 e8 23 66 2c 58 | 31 28 4a 25 2c 4b 25 29 |(...#f,X|1(J%,K%)|
|00001810| 0d 29 04 05 ed 0d 29 0e | 09 d9 23 66 3a e1 0d 29 |.)....).|..#f:..)|
|00001820| 13 05 3a 0d 29 18 37 dd | f2 73 61 76 65 3a e7 20 |..:.).7.|.save:. |
|00001830| 4e 39 3d 30 20 f1 27 22 | 83 9d 88 81 3e 20 20 4e |N9=0 .'"|....> N|
|00001840| 4f 20 20 44 41 54 41 20 | 20 3c 89 22 27 3a 64 65 |O DATA | <."':de|
|00001850| 6c 3d a6 28 32 35 30 29 | 3a e1 0d 29 22 34 e8 27 |l=.(250)|:..)"4.'|
|00001860| 22 45 6e 74 65 72 20 66 | 69 6c 65 20 72 65 66 65 |"Enter f|ile refe|
|00001870| 72 65 6e 63 65 20 63 6f | 64 65 28 6c 69 6d 69 74 |rence co|de(limit|
|00001880| 20 31 30 63 68 72 73 29 | 22 2c 72 65 66 24 0d 29 | 10chrs)|",ref$.)|
|00001890| 27 4a f5 3a f1 22 83 9d | 81 50 6c 61 69 6e 20 6e |'J.:."..|.Plain n|
|000018a0| 75 6d 65 72 69 63 20 66 | 69 6c 65 20 59 3f 20 65 |umeric f|ile Y? e|
|000018b0| 6c 73 65 20 72 65 74 75 | 72 6e 22 3b 3a 53 57 24 |lse retu|rn";:SW$|
|000018c0| 3d be 3a fd 20 a9 28 53 | 57 24 29 3d 31 20 84 20 |=.:. .(S|W$)=1 . |
|000018d0| a9 28 53 57 24 29 3d 30 | 0d 29 2c 50 f1 27 22 82 |.(SW$)=0|.),P.'".|
|000018e0| 88 45 4e 53 55 52 45 20 | 44 41 54 41 20 44 49 53 |.ENSURE |DATA DIS|
|000018f0| 43 20 49 53 20 50 52 45 | 53 45 4e 54 22 27 22 20 |C IS PRE|SENT"'" |
|00001900| 86 53 65 6c 65 63 74 20 | 46 55 4c 4c 20 64 69 72 |.Select |FULL dir|
|00001910| 65 63 74 6f 72 79 20 70 | 61 74 68 6e 61 6d 65 20 |ectory p|athname |
|00001920| 22 3a e8 20 64 69 72 24 | 0d 29 36 28 e7 20 97 28 |":. dir$|.)6(. .(|
|00001930| 64 69 72 24 29 3e 33 31 | 20 ff 20 22 44 49 52 20 |dir$)>31| . "DIR |
|00001940| 22 2b 64 69 72 24 20 20 | 8b 20 e5 20 8d 54 6c 69 |"+dir$ |. . .Tli|
|00001950| 0d 29 4a 0d 66 3d ae 28 | 72 65 66 24 29 0d 29 54 |.)J.f=.(|ref$).)T|
|00001960| 19 e7 20 53 57 24 20 3c | 3e 22 59 22 20 f1 23 66 |.. SW$ <|>"Y" .#f|
|00001970| 2c 41 24 2c 4e 39 0d 29 | 5e 57 e3 20 4b 25 3d 30 |,A$,N9.)|^W. K%=0|
|00001980| 20 b8 20 61 72 72 61 79 | 73 69 7a 65 25 3a 20 e3 | . array|size%: .|
|00001990| 20 49 3d 31 20 b8 20 32 | 34 30 3a e7 20 4b 25 2a | I=1 . 2|40:. K%*|
|000019a0| 32 34 30 2b 49 3d 4e 39 | 2b 31 20 4b 25 3d 61 72 |240+I=N9|+1 K%=ar|
|000019b0| 72 61 79 73 69 7a 65 25 | 3a 49 3d 32 34 30 20 8b |raysize%|:I=240 .|
|000019c0| 20 f1 23 66 2c 58 31 28 | 49 2c 4b 25 29 0d 29 68 | .#f,X1(|I,K%).)h|
|000019d0| 0c ed 3a ed 3a d9 20 23 | 66 0d 29 72 05 e1 0d 29 |..:.:. #|f.)r...)|
|000019e0| 77 05 3a 0d 29 cc 0a dd | f2 70 6f 73 6e 0d 29 d6 |w.:.)...|.posn.).|
|000019f0| 4a 4a 39 3d 28 49 25 28 | 6c 6f 25 29 83 32 34 30 |JJ9=(I%(|lo%).240|
|00001a00| 2d 4b 39 2a 36 30 29 81 | 32 30 3a 49 39 3d 28 49 |-K9*60).|20:I9=(I|
|00001a10| 25 28 6c 6f 25 29 2d 4b | 39 2a 36 30 29 83 32 30 |%(lo%)-K|9*60).20|
|00001a20| 3a e7 20 49 39 3d 30 20 | 8c 20 4a 39 3d 4a 39 2d |:. I9=0 |. J9=J9-|
|00001a30| 31 3a 49 39 3d 32 30 0d | 29 e0 18 e7 20 49 25 28 |1:I9=20.|)... I%(|
|00001a40| 6c 6f 25 29 83 32 34 30 | 3d 30 20 4a 39 3d 32 0d |lo%).240|=0 J9=2.|
|00001a50| 29 e1 05 e1 0d 29 e5 05 | 3a 0d 2a c6 9d dd f2 66 |)....)..|:.*....f|
|00001a60| 69 6c 28 43 29 3a f1 27 | 22 83 9d 81 4c 41 53 54 |il(C):.'|"...LAST|
|00001a70| 20 46 49 4c 45 20 44 45 | 53 43 52 49 50 54 49 4f | FILE DE|SCRIPTIO|
|00001a80| 4e 20 52 45 41 44 20 49 | 53 3a 20 22 27 22 83 9d |N READ I|S: "'"..|
|00001a90| 81 22 3b 41 24 3b 27 22 | 87 9d 84 4c 41 53 54 20 |.";A$;'"|...LAST |
|00001aa0| 44 49 53 43 20 46 49 4c | 45 3a 20 22 3b 72 65 66 |DISC FIL|E: ";ref|
|00001ab0| 24 3b 22 20 20 4c 45 4e | 47 54 48 20 49 53 3a 20 |$;" LEN|GTH IS: |
|00001ac0| 22 3b 4e 4e 25 3b 27 22 | 20 9d 84 46 52 4f 4d 20 |";NN%;'"| ..FROM |
|00001ad0| 4e 4f 2e 3a 22 3b 51 51 | 25 3b 22 20 20 54 4f 54 |NO.:";QQ|%;" TOT|
|00001ae0| 41 4c 20 4e 4f 2e 20 49 | 4e 50 55 54 3a 20 22 3b |AL NO. I|NPUT: ";|
|00001af0| 4e 39 3b 27 3a e1 0d 2e | e0 17 dd a4 75 73 69 6e |N9;':...|....usin|
|00001b00| 67 28 66 6f 72 6d 61 74 | 24 2c 6e 6f 29 0d 2e ea |g(format|$,no)...|
|00001b10| 18 ea 20 6e 75 6d 62 24 | 2c 73 70 24 2c 44 25 2c |.. numb$|,sp$,D%,|
|00001b20| 4c 25 2c 40 25 0d 2e f4 | 0f 6e 75 6d 62 24 3d c3 |L%,@%...|.numb$=.|
|00001b30| 28 6e 6f 29 0d 2e fe 38 | e7 20 6e 6f 3e 30 20 80 |(no)...8|. no>0 .|
|00001b40| 20 97 28 66 6f 72 6d 61 | 74 24 29 3d 34 35 20 8c | .(forma|t$)=45 .|
|00001b50| 20 73 70 24 3d bd 33 32 | 3a 66 6f 72 6d 61 74 24 | sp$=.32|:format$|
|00001b60| 3d c1 66 6f 72 6d 61 74 | 24 2c 32 29 0d 2f 08 11 |=.format|$,2)./..|
|00001b70| 4c 25 3d a9 28 66 6f 72 | 6d 61 74 24 29 0d 2f 12 |L%=.(for|mat$)./.|
|00001b80| 18 44 25 3d a7 66 6f 72 | 6d 61 74 24 2b bd 33 32 |.D%=.for|mat$+.32|
|00001b90| 2c 22 2e 22 29 0d 2f 1c | 2d e7 20 44 25 20 8c 20 |,".")./.|-. D% . |
|00001ba0| 40 25 3d 28 36 36 30 34 | 38 2b 4c 25 2d 44 25 29 |@%=(6604|8+L%-D%)|
|00001bb0| 2a 32 35 36 20 8b 20 6e | 6f 3d a8 28 6e 6f 2b 2e |*256 . n|o=.(no+.|
|00001bc0| 35 29 0d 2f 26 20 e7 20 | a7 6e 75 6d 62 24 2c 22 |5)./& . |.numb$,"|
|00001bd0| 45 22 29 20 8c 20 3d 73 | 70 24 2b 66 6f 72 6d 61 |E") . =s|p$+forma|
|00001be0| 74 24 0d 2f 30 29 e7 20 | a7 6e 75 6d 62 24 2b 22 |t$./0). |.numb$+"|
|00001bf0| 2e 22 2c 22 2e 22 29 3e | 4c 25 2b 31 20 8c 20 3d |.",".")>|L%+1 . =|
|00001c00| 73 70 24 2b 66 6f 72 6d | 61 74 24 0d 2f 3a 11 66 |sp$+form|at$./:.f|
|00001c10| 6f 72 6d 61 74 24 3d c3 | 28 6e 6f 29 0d 2f 44 27 |ormat$=.|(no)./D'|
|00001c20| e7 20 a9 28 66 6f 72 6d | 61 74 24 29 3e 4c 25 20 |. .(form|at$)>L% |
|00001c30| 8c 20 3d 73 70 24 2b c0 | 66 6f 72 6d 61 74 24 2c |. =sp$+.|format$,|
|00001c40| 4c 25 29 0d 2f 4e 1e 3d | 73 70 24 2b c2 c4 4c 25 |L%)./N.=|sp$+..L%|
|00001c50| 2c 22 20 22 29 2b 66 6f | 72 6d 61 74 24 2c 4c 25 |," ")+fo|rmat$,L%|
|00001c60| 29 0d 2f a8 13 dd f2 73 | 65 72 69 61 6c 3a 2a 46 |)./....s|erial:*F|
|00001c70| 58 35 2c 32 0d 2f b2 70 | f1 27 22 83 45 6e 74 65 |X5,2./.p|.'".Ente|
|00001c80| 72 20 42 61 75 64 20 52 | 61 74 65 20 6f 66 20 70 |r Baud R|ate of p|
|00001c90| 72 69 6e 74 65 72 20 61 | 73 20 66 6f 6c 6c 6f 77 |rinter a|s follow|
|00001ca0| 73 22 27 27 22 83 37 35 | 3d 31 2c 20 31 35 30 3d |s"''".75|=1, 150=|
|00001cb0| 32 2c 20 33 30 30 3d 33 | 2c 20 31 32 30 30 3d 34 |2, 300=3|, 1200=4|
|00001cc0| 2c 20 32 34 30 30 3d 35 | 22 27 22 83 34 38 30 30 |, 2400=5|"'".4800|
|00001cd0| 3d 36 2c 20 39 36 30 30 | 3d 37 2c 20 31 39 32 30 |=6, 9600|=7, 1920|
|00001ce0| 30 3d 38 22 0d 2f bc 1b | 62 64 25 3d a5 2d 34 38 |0=8"./..|bd%=.-48|
|00001cf0| 3a ff 20 22 2a 46 58 38 | 2c 22 2b c3 62 64 25 0d |:. "*FX8|,"+.bd%.|
|00001d00| 2f c6 0a 2a 46 58 36 2c | 30 0d 2f d0 19 f1 27 22 |/..*FX6,|0./...'"|
|00001d10| 81 88 4f 4b 22 3a 64 65 | 6c 3d a6 28 32 35 30 29 |..OK":de|l=.(250)|
|00001d20| 3a e1 0d 2f da 93 dd f2 | 77 68 65 72 65 3a f5 3a |:../....|where:.:|
|00001d30| f1 27 27 22 83 9d 84 88 | 3e 89 20 45 6e 74 65 72 |.''"....|>. Enter|
|00001d40| 20 64 72 69 76 65 20 4e | 6f 2e 20 6f 66 20 64 61 | drive N|o. of da|
|00001d50| 74 61 20 64 69 73 63 20 | 88 3c 89 22 27 22 83 9d |ta disc |.<."'"..|
|00001d60| 84 20 20 6f 72 20 52 45 | 54 55 52 4e 20 66 6f 72 |. or RE|TURN for|
|00001d70| 20 64 72 69 76 65 20 30 | 22 3a 69 6e 63 25 3d a5 | drive 0|":inc%=.|
|00001d80| 2d 34 38 3a fd 20 28 69 | 6e 63 25 3e 2d 31 20 80 |-48:. (i|nc%>-1 .|
|00001d90| 20 69 6e 63 25 3c 37 29 | 20 84 20 69 6e 63 25 3d | inc%<7)| . inc%=|
|00001da0| 2d 33 35 3a e7 20 69 6e | 63 25 3d 2d 33 35 20 69 |-35:. in|c%=-35 i|
|00001db0| 6e 63 25 3d 30 0d 2f e4 | 58 f1 27 22 83 9d 84 45 |nc%=0./.|X.'"...E|
|00001dc0| 6e 74 65 72 20 64 61 74 | 61 20 64 69 72 65 63 74 |nter dat|a direct|
|00001dd0| 6f 72 79 20 70 61 74 68 | 6e 61 6d 65 89 22 27 22 |ory path|name."'"|
|00001de0| 83 9d 84 6f 72 20 52 45 | 54 55 52 4e 20 66 6f 72 |...or RE|TURN for|
|00001df0| 20 63 75 72 72 65 6e 74 | 20 64 69 72 65 63 74 6f | current| directo|
|00001e00| 72 79 89 22 27 3a e8 20 | 64 69 72 64 24 0d 2f ee |ry."':. |dird$./.|
|00001e10| 20 f4 20 49 46 20 64 69 | 72 64 24 3d 22 22 20 54 | . IF di|rd$="" T|
|00001e20| 48 45 4e 20 64 69 72 64 | 24 3d 22 5e 22 0d 2f f8 |HEN dird|$="^"./.|
|00001e30| 05 e1 0d 30 0c 0a dd f2 | 69 6e 69 74 0d 30 16 27 |...0....|init.0.'|
|00001e40| eb 20 37 3a 4e 4e 25 3d | 30 3a 51 51 25 3d 30 3a |. 7:NN%=|0:QQ%=0:|
|00001e50| 4b 25 3d 30 3a ef 32 33 | 2c 31 2c 30 3b 30 3b 30 |K%=0:.23|,1,0;0;0|
|00001e60| 3b 30 3b 0d 30 20 2b 61 | 72 72 61 79 73 69 7a 65 |;0;.0 +a|rraysize|
|00001e70| 25 3d 31 30 3a 64 75 6d | 6d 79 25 3d 30 3a 73 68 |%=10:dum|my%=0:sh|
|00001e80| 61 70 65 24 3d 22 2a 2a | 2a 2e 2a 2a 2a 22 0d 30 |ape$="**|*.***".0|
|00001e90| 2a 26 46 34 3d 31 3a 72 | 65 66 24 3d 22 4e 6f 6e |*&F4=1:r|ef$="Non|
|00001ea0| 65 22 3a 4e 39 3d 30 3a | 41 24 3d 22 4e 6f 20 64 |e":N9=0:|A$="No d|
|00001eb0| 61 74 61 22 0d 30 34 31 | de 20 58 31 28 32 34 30 |ata".041|. X1(240|
|00001ec0| 2c 61 72 72 61 79 73 69 | 7a 65 25 29 2c 58 28 32 |,arraysi|ze%),X(2|
|00001ed0| 34 30 2c 61 72 72 61 79 | 73 69 7a 65 25 29 2c 49 |40,array|size%),I|
|00001ee0| 25 28 36 31 29 0d 30 3e | 56 f1 22 83 9d 84 46 55 |%(61).0>|V."...FU|
|00001ef0| 4c 4c 20 54 48 52 45 45 | 20 57 41 59 20 41 4e 41 |LL THREE| WAY ANA|
|00001f00| 4c 59 53 49 53 20 4f 46 | 20 56 41 52 49 41 4e 43 |LYSIS OF| VARIANC|
|00001f10| 45 20 22 27 22 83 9d 84 | 49 4e 43 4f 4d 50 4c 45 |E "'"...|INCOMPLE|
|00001f20| 54 45 20 43 45 4c 4c 53 | 20 41 4c 4c 4f 57 45 44 |TE CELLS| ALLOWED|
|00001f30| 20 52 2e 64 65 56 20 27 | 38 39 22 0d 30 48 51 f1 | R.deV '|89".0HQ.|
|00001f40| 27 22 92 9d 84 44 61 74 | 61 20 66 6f 72 6d 61 74 |'"...Dat|a format|
|00001f50| 20 61 6c 6c 6f 77 73 20 | 37 20 66 69 67 75 72 65 | allows |7 figure|
|00001f60| 20 64 69 73 70 6c 61 79 | 20 22 27 22 92 9d 84 69 | display| "'"...i|
|00001f70| 6e 63 6c 75 64 69 6e 67 | 20 74 68 65 20 64 65 63 |ncluding| the dec|
|00001f80| 69 6d 61 6c 20 70 6f 69 | 6e 74 21 22 0d 30 52 9b |imal poi|nt!".0R.|
|00001f90| f5 3a f1 22 83 9d 84 45 | 6e 74 65 72 20 70 72 65 |.:."...E|nter pre|
|00001fa0| 66 65 72 72 65 64 20 64 | 61 74 61 20 66 6f 72 6d |ferred d|ata form|
|00001fb0| 61 74 20 69 6e 20 74 68 | 65 22 27 22 83 9d 84 66 |at in th|e"'"...f|
|00001fc0| 6f 72 6d 20 2a 2a 2a 2e | 2a 2a 2a 20 6f 72 20 52 |orm ***.|*** or R|
|00001fd0| 45 54 55 52 4e 20 66 6f | 72 20 64 65 66 61 75 6c |ETURN fo|r defaul|
|00001fe0| 74 22 3b 3a e8 20 73 68 | 61 70 65 24 3a fd 20 a9 |t";:. sh|ape$:. .|
|00001ff0| 28 73 68 61 70 65 24 29 | 3d 37 20 84 20 a9 28 73 |(shape$)|=7 . .(s|
|00002000| 68 61 70 65 24 29 3d 30 | 3a e7 20 a9 28 73 68 61 |hape$)=0|:. .(sha|
|00002010| 70 65 24 29 3d 30 20 73 | 68 61 70 65 24 3d 22 2a |pe$)=0 s|hape$="*|
|00002020| 2a 2a 2e 2a 2a 2a 22 0d | 30 70 9a f1 27 22 83 9d |**.***".|0p..'"..|
|00002030| 84 45 6e 74 65 72 20 31 | 20 74 6f 20 70 72 6f 63 |.Enter 1| to proc|
|00002040| 65 73 73 20 61 6c 6c 20 | 64 61 74 61 20 69 6e 63 |ess all |data inc|
|00002050| 2e 22 27 22 83 9d 84 7a | 65 72 6f 20 61 6e 64 20 |."'"...z|ero and |
|00002060| 6e 65 67 61 74 69 76 65 | 20 76 61 6c 75 65 73 20 |negative| values |
|00002070| 6f 72 20 52 45 54 55 52 | 4e 22 27 22 83 9d 84 74 |or RETUR|N"'"...t|
|00002080| 6f 20 74 72 65 61 74 20 | 76 61 6c 75 65 73 20 3c |o treat |values <|
|00002090| 20 30 2e 30 30 31 20 61 | 73 20 6d 69 73 73 69 6e | 0.001 a|s missin|
|000020a0| 67 20 22 3a 64 75 6d 6d | 79 25 3d a5 3a e7 20 64 |g ":dumm|y%=.:. d|
|000020b0| 75 6d 6d 79 25 3d 31 33 | 20 64 75 6d 6d 79 25 3d |ummy%=13| dummy%=|
|000020c0| 30 0d 30 7a 32 f1 27 22 | 83 9d 84 3e 89 46 75 6c |0.0z2.'"|...>.Ful|
|000020d0| 6c 20 65 64 69 74 69 6e | 67 20 69 6e 70 75 74 3d |l editin|g input=|
|000020e0| 46 20 65 6c 73 65 20 52 | 45 54 55 52 4e 22 3a 44 |F else R|ETURN":D|
|000020f0| 24 3d be 0d 30 d4 05 e1 | 0d 31 38 12 dd f2 64 69 |$=..0...|.18...di|
|00002100| 6d 3a 47 25 3d 35 3a 4d | 3d 30 0d 31 42 8b de 20 |m:G%=5:M|=0.1B.. |
|00002110| 41 32 28 61 72 72 61 79 | 73 69 7a 65 25 2a 47 25 |A2(array|size%*G%|
|00002120| 29 2c 41 33 28 61 72 72 | 61 79 73 69 7a 65 25 2a |),A3(arr|aysize%*|
|00002130| 47 25 29 2c 51 28 61 72 | 72 61 79 73 69 7a 65 25 |G%),Q(ar|raysize%|
|00002140| 2a 47 25 29 2c 50 28 61 | 72 72 61 79 73 69 7a 65 |*G%),P(a|rraysize|
|00002150| 25 2a 47 25 29 2c 41 35 | 28 61 72 72 61 79 73 69 |%*G%),A5|(arraysi|
|00002160| 7a 65 25 2a 47 25 2c 61 | 72 72 61 79 73 69 7a 65 |ze%*G%,a|rraysize|
|00002170| 25 2a 47 25 29 2c 41 36 | 28 61 72 72 61 79 73 69 |%*G%),A6|(arraysi|
|00002180| 7a 65 25 2a 47 25 2c 61 | 72 72 61 79 73 69 7a 65 |ze%*G%,a|rraysize|
|00002190| 25 2a 47 25 29 0d 31 4c | 85 de 20 41 37 28 61 72 |%*G%).1L|.. A7(ar|
|000021a0| 72 61 79 73 69 7a 65 25 | 2a 47 25 2c 61 72 72 61 |raysize%|*G%,arra|
|000021b0| 79 73 69 7a 65 25 2a 47 | 25 29 2c 57 35 28 61 72 |ysize%*G|%),W5(ar|
|000021c0| 72 61 79 73 69 7a 65 25 | 2a 47 25 2c 61 72 72 61 |raysize%|*G%,arra|
|000021d0| 79 73 69 7a 65 25 2a 47 | 25 29 2c 57 36 28 61 72 |ysize%*G|%),W6(ar|
|000021e0| 72 61 79 73 69 7a 65 25 | 2a 47 25 2c 61 72 72 61 |raysize%|*G%,arra|
|000021f0| 79 73 69 7a 65 25 2a 47 | 25 29 2c 57 37 28 61 72 |ysize%*G|%),W7(ar|
|00002200| 72 61 79 73 69 7a 65 25 | 2a 47 25 2c 61 72 72 61 |raysize%|*G%,arra|
|00002210| 79 73 69 7a 65 25 2a 47 | 25 29 0d 31 92 05 e1 0d |ysize%*G|%).1....|
|00002220| 31 9c 9b dd f2 6f 73 3a | f1 27 22 83 9d 84 3e 20 |1....os:|.'"...> |
|00002230| 20 4f 50 45 52 41 54 49 | 4e 47 20 53 59 53 54 45 | OPERATI|NG SYSTE|
|00002240| 4d 20 43 41 4c 4c 20 28 | 65 67 20 2a 43 41 54 20 |M CALL (|eg *CAT |
|00002250| 3c 22 27 3a e8 22 45 6e | 74 65 72 20 63 61 6c 6c |<"':."En|ter call|
|00002260| 20 28 6b 65 79 20 73 68 | 69 66 74 20 74 6f 20 73 | (key sh|ift to s|
|00002270| 63 72 6f 6c 6c 29 22 2c | 53 57 24 3a ef 31 34 3a |croll)",|SW$:.14:|
|00002280| ff 20 53 57 24 3a ef 31 | 35 3a f1 22 83 9d 84 3e |. SW$:.1|5:."...>|
|00002290| 20 20 50 72 65 73 73 20 | 61 20 6b 65 79 20 74 6f | Press |a key to|
|000022a0| 20 65 6e 64 20 64 65 6c | 61 79 20 20 3c 22 3a 64 | end del|ay <":d|
|000022b0| 65 6c 3d a6 28 32 30 30 | 30 29 0d 32 c8 05 e1 0d |el=.(200|0).2....|
|000022c0| ff | |. | |
+--------+-------------------------+-------------------------+--------+--------+
